perm filename E.DIF[E,ALS]7 blob
sn#168520 filedate 1975-07-08 generic text, type T, neo UTF8
1) E.48[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 07-08-75 08:31 PAGES 1,1
******** E.48[CSP,SYS] **** PAGE 1 LINE 11
1) C00046 00009 BEG0, BEG1, BEG1A, BEG2, BEGBKP
1) C00050 00010 BEG3,BEG4
1) C00053 00011 MAIN, FNF, FNF2
1) C00055 00012 CMDIN, CMDLUP, CMDEX, CMDX, CMDX2
1) C00058 00013 CMDED, CMDRD, CMDRD2, MINUS, PLUS, NUMS, INFIN, ALTSET
1) C00060 00014 CMDERR, ERR, POPJ1, EXTNUL, CPOPJ, CBTAB, ICHTAB, ILLRDO, ILLDIR, ILLMES, ILLMS2, ERRX, ILLBK
1) C00062 00015 INIT, INIT0, INIT1, INI1, IOBARF
1) C00066 00016 CMDSP
1) C00069 00017 XCMDS, XDISP, MCMDS, MDISP
1) C00071 00018 EXTEND, EXTEN1, EXTL0, EXTL, EXTL1, EXTL2, EXTL3
1) C00073 00019 EXTLK0, EXTLK, EXTAMB, EXTNUL, EXTNF, EXTAM2, EXTBUF, EXTBFE
1) C00075 00020 READON, ROSET, READWR, NORDWR, CANCEL, SNKOFF, SNKON, DPYALW, DPYSKI, NORDOW
1) C00078 00021 DDTGO, R, DRAW, DRAWX, PPSET, LINCNT
1) C00081 00022 GETOUT, GETOU1, FINISH, FINI1, FINI2, GORPG, QUIT, CLOSIT, GODRD
1) C00083 00023 NEWPAG, NEWPG, NEWPG0, NEWPG1, REREAD, PGINIT, NODEL, PGERR, FINSRT
1) C00087 00024 UNWIND, WIND, WIND1, LT, GT, LTE, GTE, TOP, BOT, JMP, UPARR, DWNARR
1) C00089 00025 XMARK--The `M' commands.
1) C00100 00026 DELLIN, DELPOS
1) C00102 00027 DELLP, DELL2
1) C00105 00028 DELPM, DELPM1, DELPM2, DELPM3
1) C00107 00029 DELPAG, DELPG1, ADJPG, ADJPGL
1) C00109 00030 RCOMP, RCOMP1, RCOMP2, RCOMPX
1) C00110 00031 DELETE, DELET1, ADDPAG
1) C00112 00032 APPEND, APPLUZ
1) C00114 00033 APPEN2, PMTXT, PMPAG
1) C00116 00034 INSERT
1) C00117 00035 INSER1, INSER2, INSER3, INSER4, INSER5
1) C00118 00036 INSER8, DIRADD
1) C00120 00037 INSER6, INSER7, MARK
1) C00121 00038 CONTQ
1) C00123 00039 ATTACH, ATTCH1, ARGCHK, ARGCHN
1) C00125 00040 ATTDO, ATTDO0, ATTDO2, ATTDO1
1) C00127 00041 ATTREP, ATTEX
1) C00129 00042 ATTKIL, ATTKL, ATTSRC, GPAGL, GPAGL0, GPAGL1, GPAGL2, GPAGL3, ATTWRT
1) C00131 00043 ATTCOP, ATTCP1, ATTCP
1) C00132 00044 ATTCP0, ATTCPL, ATCMOR, ATTCP2, ATTCP3, GPAGL
1) C00134 00045 EDIT, EDIT1, LINED, LINL1, EDDSP, EDARG, EDARGX
1) C00136 00046 EDFULL, EDTAB, EDNUL, EDCR, AGAIN, EDRP1, EDRPT
1) C00138 00047 EDGL, EDGL1, EDGL2, EDGL2A
1) C00141 00048 EDGL3, EDGL4, REEDIT, EDTMOR, EDGDSP, EDTAB2, PTOUT, PTPNT
1) C00144 00049 EDCR2, EDACT, EDITIT, REPLIN, PUTBAK
1) C00147 00050 EDPUT, EDPLR
1) C00149 00051 EDPS, EDPL, EDPLUZ
1) C00150 00052 EDSNK, EDSNK2, EDSNK3, ESDSP, ESALT
1) C00151 00053 CRDSP, REGCR, REGCR1, REGCR2
1) C00152 00054 CONTCR, CNTCR2, METACR, REPRST, REPRS2
1) C00154 00055 LECR, DUBLCR, DUBCR2
1) E.48[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 07-08-75 08:31 PAGES 1,1
1) C00156 00056 INSONA, INSONE, INSNUL, INSNLP
1) C00158 00057 LININS, LINSLP, LINS1, LINGLP, LIDSP, LINTAB
1) C00160 00058 LINCR1, LINCR, LICCR, LINALT, LINCOM
1) C00161 00059 LINSTO, LINST1
1) C00163 00060 SETWRT, SETWR2, SETWRX, BTAB, BUF, RBUF
1) C00165 00061 FRD, FRD0, FRD1, NOEXT, NOPRG, NOPPN, NOSWIT, SWITL
1) C00169 00062 SETDEV, GETNAM, GETNML, GETP, GETPL, DTYI1, DTYI, DTYI2
1) C00171 00063 DOSWIT, NTYI, NTYIL, NTYIM, EDFIL, EDFIL2, SRCFIL, DSTFIL
1) C00174 00064 RSCAN, RSCAN0, RSCAN1, RSCAN2, RSCAN3, RSCAN4, RSCN4B, RSCN4C, RSCN4A, RSCN0A
1) C00178 00065 RSCAN5, RSCAN6, RSCAN7, RSCAN8, SYSCCK, CRECHK
1) C00180 00066 RSTYI, TYI1, TYI2, TYI3, TYIX, TYI4
1) C00182 00067 TYI, TYIT, TYIU
1) C00183 00068 TMPRED, TMPRD1, TMPRD2, TMPRDX, RPGRD1, BKPRED
1) C00189 00069 TMPWRT, BKPWRT
1) C00193 00070 FILERR, FILTYP, FILSTR, PPNTYP, FILETB
1) C00195 00071 SIXTYO, SIXTYL, SIXTY2, SIXTYN, SIXTNL, SIXTNN, PNTYO, PNTYOL
1) C00196 00072 UUOH, UUODSP, UFCE, UTYPCH, UTYPC2, UTYPDE, UTYPOC
1) C00198 00073 UTYPR, UTYPR1, USORRY, UFATAL,FATFIX,TELLX,TELLZ
1) C00202 00074 OPENI, OPNOI, IOPEN, SETI, SETRLD, OPNDEV, RELDEV, OPNLUZ
1) C00206 00075 RLD, RLD1, RLD2, RLDX, RLDLUZ, FIXEOF, ENTLUZ, ENTL2,RLDCHK
1) C00214 00076 EXTCHK, EXTCH1, EXTCH2, EXTCH3, EXTCH4, EXTTAB
1) C00216 00077 OPENW, OPENO, SETO, FPAUSE, PAUSE, PAUS2
1) C00218 00078 CLOSO, WRBUF, WRBF1, WRBF2, ENTR, OBUF
1) C00219 00079 MORCOR, INTLUZ, INTDSP, PDLOV, PDLOV1, PDLOV2, PDLOV3, ISAV, TSINT, TSNINT
1) C00222 00080 FSINI, FSINI1, MORCOR
1) C00225 00081 FSGET, FSLUP0, FSLUP, FSGRAB, FSXIT
1) C00226 00082 FSNEWT, FSNEWP, FSNEW
1) C00227 00083 FSUSED, FSTSML, FSNEXT, FSHRET, FSLLUZ
1) C00229 00084 FSLSCN, FSLSCL, FSLFR, FSLSHF, FSLSLP, FSLMOV, FSLDON
1) C00231 00085 FSHSCN, FSHSCL, FSHFR, FSHSHF, FSHSLP, FSHSR, FSHMOV
1) C00233 00086 FSBLT, POPTJ, FSBLT1
1) C00234 00087 FSBLT2, FSBLT3, FSHBLT, FSHBL2
1) C00235 00088 PNTREL, SHFTB, STDSH1, STDSHF, RELOC, RELOCL
1) C00237 00089 FSGIVE, FSGIV1, FSGIV2
1) C00238 00090 CORCHK, CRUNCH, CMPACT
1) C00240 00091 ENDSET, ENDFIX
1) C00241 00092 FSCHK, FCLUP1, FCLUP2, FCFR, FCDON
1) C00243 00093 FUCHK, MOVIT, MOVTX
1) C00245 00094 PURINI, PLCHK, PL2CHK, PLCHKL, PLSCN0, PLSCN, PLSCN1, PLSCN2, PLSCN3
1) C00247 00095 PURCHK, PURCH1, PURCH2, PURCH3, PURC3A
1) C00250 00096 PURCH4, PURCH5, PURCH6, PURCH7, PURCLC, TYPHW, PURCK, PLCHK1, PLCHK2, PURFLG
1) C00252 00097 SAVIT
1) C00253 00098 CHECK, CHECK1, CHECK2
1) C00254 00099 CHKDIR, CHKDPL
1) C00256 00100
1) C00258 00101 CHKLST, CHKFS, CHKFSL, CHKFS2, CHKPNT, CHKPN2
1) C00259 00102 CHKPAG, CHKPGP
1) C00260 00103 CHKPG1, CHKPG2, CPDSP, CHKPGT, CHKPTL
1) E.48[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 07-08-75 08:31 PAGES 1,1
1) C00262 00104 CHKPG3, CHKPG4, CHKPG5, CHKPG6
1) C00263 00105 CHKATT, CHKNAT
1) C00264 00106 CTAB 0-37
1) C00268 00107 CTAB 40-77
1) C00270 00108 CTAB 100-137
1) C00272 00109 CTAB 140-177
1) C00274 00110 GETDIR
1) C00278 00111 DIRCL2, DIRCL, DIRCL1, GETDR1
1) C00280 00112 DIRLIN, DIRLUP, DIRDON
1) C00284 00113 LOSDIR, BADDIR, NODIR, DIRNUM, GDDSP, LSKP1, DIRSHF, DIREND
1) C00287 00114 COPFIL, COPFL1, COPDO, COPYX, COPDAT, COPLUP
1) C00289 00115 COPCOR, COPCHK, YESCHK, COPCMD
1) C00291 00116 FORMAT, FMTOK, FMTDSP
1) C00297 00117 NEWDIR, NEWDLP, SKPDSP, NEWDFF, OPUT, OSET, TMPDIR
1) C00298 00118 MAKDIR, MAKDR0, MAKDR1, MAKDOL, MDOL1
1) C00300 00119 MDIL1, MDIL1A, MDIL2, MDIL2A, MDCSRC, MDCSR1, MD1DSP
1) C00302 00120 MDIL1B, MAKDLF, MAKDFF, MDFF2, MDFF3, MDCEOL, MD2DSP
1) C00304 00121 MD1CR, MD2CR, MD3CR, MD3CR1, MDIL3, MDCRCK, MDFIX, MDLFCK
1) C00307 00122 CREATE, CREAT2, CTEXT
1) C00309 00123 RDSPA1,RDPAGE, RDPGOK, RDSPAG, RDPAG0
1) C00312 00124 RDPAG2, RDPAG1, RDLINE, RDLLP, RDLTAB
1) C00316 00125 RDLCR, RDLLF, NUMSTR,NUMSIX,OCTSTR,OCTASC
1) C00319 00126 RDLFF, RDLDON, LINSET, RPDSP, RDLNUL
1) C00321 00127 RDPGLZ, SOSTST, SOSCHK, SOSCK2, PGMK, PGMK2
1) C00323 00128 DIRCHK, DIRNEW, DIRNW2, DIRNW1, TXTSHF
1) C00325 00129 FNDLIN, FNDPAG, FNDLN1, FNDLN2, FNDLN3
1) C00326 00130 REMPTR, FIXPTR, FNDPT1, FNDPT2, LPTRTB, DPTRTB
1) C00328 00131 DIRGET, DIRGL, DGEND, DRGSET
1) C00330 00132 NUM5, NUM5A, DIRHED, DIRTXT, DIREMK, DGDSP
1) C00332 00133 OUTDIR, OUTDOK, OUTDLP, ODDSP, ODDON, ODEXP
1) C00334 00134 INSDIR, DCLP1, DCLP2, DCNG, INSDL
1) C00336 00135 IDDSP0, IDDSP, IDTAB, INSD3, INSD4, SCOMS, SCOMS2
1) C00338 00136 IDNUL, IDDON, IDDONS
1) C00340 00137 DIRSET, DIRST1, DIRUP, DIRUP1, DIRUP2, DIRUP3
1) C00341 00138 DIRFIX, DIRFX1, DIRFX2, DIRFX3, DIRFX4, DIRFXN
1) C00343 00139 DISPLAY DATA STORAGE
1) C00345 00140 MORE DISPLAY STORAGE
1) C00346 00141 HEADERS & TRAILERS
1) C00348 00142 DPYINI, DPYCHK
1) C00351 00143 DPYI2, NODPY, WIPE, IWIPE
1) C00354 00144 SETSCR, NMVARR, MOVARR, SETARR, DSTRL, TRLARR
1) C00357 00145 ARRBOT, ARRTOP, SETWIN, WINCHK, WINCH2
1) C00361 00146 DISP, DISP0, DISP1, DISP2
1) C00363 00147 DISP3, DISP4, DISP5, DUMMY, EXCLR, EXSET,EXTST
1) C00365 00148 DISPAT, DISPAX
1) C00366 00149 DWNWIN, REWIN, DDISPX, DDSPX2, DDDONE, WIPIT, WIPL, WIPL2
1) C00368 00150 DDCOP, DDLUZ, LINREL, LINRLL, IDISP, IDISP2
1) C00369 00151 IIIARR, IIIAR2, IIIAR3
1) E.48[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 07-08-75 08:31 PAGES 1,1
1) C00371 00152 LESET, LEADJ, LECLR
1) C00372 00153 DBLT, DBLT1, DBLT2, DBLT3, IDISPX, DISPX, PPBAJ1, POPBAJ, POPAJ
1) C00374 00154 PCOMPD, PCOMPI, PCOMPS, P2CMPD, P2CMPI
1) C00375 00155 DDISP, DDISP2
1) C00376 00156 DOARR, DOAR2, OFFARR, ONARR
1) C00377 00157 DDISPS, DDSPS2, DDSPS3, DDSPSX, DDSPS4
1) C00379 00158 DSPSAT, DSPSAX
1) C00380 00159 DBLTS, DBLTS2, DBLTSN, DBLTS3, DBLTS1, DBLTSA, DBLTA, DBLTA2
1) C00382 00160 TDISP, TDISP1, TDISP2, TDSP2A, TDISPX
1) C00384 00161 TDISPC, TDISP3, TDISP4, TDISP5, TYPE, TYPEL
1) C00385 00162 WRPAGE, WRPAG1, WRPAG2, WRBOOK
1) C00387 00163 WRPX0, WRPX, WRPX1, WRPX1A, WRPX1B, WRPX2
1) C00388 00164 WRPX3, WRPX4
1) C00389 00165 WRPOK, WRTIT, WRT0
1) C00390 00166 WRP1, WRLINE, WRLUP, WRLP2, WRRDO, WRRDO2, WRRDO3
1) C00392 00167 WRDSP, WRTAB, WRCHK, WRDONE, WRDON2
1) C00394 00168 WRPM, BTAB2
1) C00396 00169 FLSPAG, FLSPGL, FLSPG2, CLRWRT, CLRWR2
1) C00397 00170 TV, RSYS, RUN, RUN1
1) C00400 00171 RUNILL, RUNNON, RUNFNF, RUNDEV, RUNFIL
1) C00401 00172 SEARCH ROUTINES
1) C00403 00173 SREAD, SREAD1, SREAD2, SREAD3, SREAD4, SRSTOR, SRSTR2
1) C00415 00174 SRACT, SREAD5, SRALT, SRALT2, SRALUZ, SREDT,ASTER,BSLAS
1) C00424 00175 FINDIT, FOUND, FNDMOV, FNDERR
1) C00428 00176 FIND
1) C00430 00177 DIRSRC, DFERR, SRCDF, SDFCR
1) C00432 00178 SSET, SSET2
1) C00433 00179 SCOMP, SCOMPX, SCOMPR
1) C00435 00180 SBARF, SBARF1, SARRGH, SFSGT, SFSGET, SFSPUT, SFSPTL
1) C00437 00181 SPARSE
1) C00438 00182 SPARS1, SPARS2, SPDSP, SSCAN, SSCANA, SSCANX
1) C00440 00183 SSCAN1, SSCN1A, SSCN1B, SSCQT, SSCBIN, SSCINF, SSCNOT, SSCUOP, SSCVB
1) C00442 00184 SSCLP, SSCDSP
1) C00443 00185 SGRAPH, SGRPH1, SGRPH2, SGRPHX, SGDO1, SGDO1X, SGDOX2, SGDSP, SGDO1B
1) C00445 00186 SGNOT
1) C00446 00187 SBACK, SBACK1, SBACK2, SBACK3, SBACK4
1) C00448 00188 SBBRCH, SBBR2
1) C00449 00189 SBCALC, SBCAL0, SBCAL1, SBCAL2, SBCAL3
1) C00450 00190 SBCAL4, SBCNON, SBCX, SBCOPL, SBCOP2, SBCEND, SBCEN2, SBCFIX, SBCFXL, SBCFXE, POPJ2
1) C00452 00191 SBCOK, SBCEN1, SBCLUZ, SBCLZ1, SBCNXT, SBCBP, SBCBPL
1) C00454 00192 SBCCB, SBCCB1, SBCCB2, SBCCB8, SBCCB3, SBCCB4, SBCCB5
1) C00456 00193 SBCCB6, SBCCB7, BITCNT, BITCN1
1) C00457 00194 NEWBIT, NEWBT0, NEWBT1, NEWBT2, NEWBT3, NEWBT4, NEWBT5
1) C00459 00195 NEWBTC, NEWBC1, NEWBC2, NEWBC3, NEWBNC, NEWBN1, NEWBN2, NEWBN3, NEWBCZ, NEWBNZ
1) C00461 00196 SCCOM, SCCNOT
1) C00462 00197 SCCBIT
1) C00463 00198 MAKBIT, MAKBT0, MAKBT1, MAKBTN, MAKBN2, MAKBTB, MAKBB3
1) C00465 00199 MAKBNB, MAKBBT, MAKBB2, MBDSP, MBIND, MBIND2
1) E.48[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 07-08-75 08:31 PAGES 1,1
1) C00467 00200 SCGEN
1) C00468 00201 SCGEN1, SCGEN2, SCGEN3, SCGEN4, SCGEN5, SCGEN6
1) C00470 00202 SCGTST, SCGT2, SCGT3, SCGDSP, SCGCN, SCGCN2, SCGBTN, SCGBT
1) C00472 00203 SCGE, SCGE2, SCGEL, SCGBAK, SCGBK1, SCGBK2, SCGBK3, SCGFA, SCGNC, SCGNFA
1) C00474 00204 SCGHB, SCGHB0, SCGHB5, SCGHB1, SCGHB2, SCGHB3, SCGHB4, SCGHBX, SCGHX2
1) C00476 00205 SCGCB, SCGCB0, SCGCB1, SCGCB2, SCGCB3, SCGCB4, SCGCB5, SCGHCB
1) C00478 00206 SBTMAK, SBTMK1, SBTMK2, SBTMK3, SBTMK4, SCGENB, SCGHB, SSVINS, SCXCT, SBKNW, SBKNWA, SBKDSP
1) C00480 00207 SRCPAG, SRCPG1
1) C00482 00208 GBYTP, GBYTPL, GBTPX, GBPDSP, GBPTAB
1) C00483 00209 SRCPGF, SPFTAB, SPFCR, SPFLUZ
1) C00484 00210 SRCPGB, SPFTAB, SBKNL, SBKNUL
1) C00485 00211 SRCSET, SRCST1, SRCSTL, SRCST2
1) C00486 00212 SCALL, SRCHX, SRCHLX
1) C00487 00213 SCNBAK, SCNBKL
1) C00489 00214 SCONTF, SRCFNP, SRCFNB, SFNB2, SFRETR
1) C00491 00215 SRCFF, SFFNUL, SGTACS, SRTACS
1) C00492 00216 SRCFB, SFBNUL, SBKNB, SBKNB2, SIOERR, SBKNP
1) C00493 00217 JFILL, JUST, JUSTL1, JUSTL2, JDISP
1) C00503 00218 JUSTTB, JUSTSP, JUSTS2, JUSTSL, JUSTS3, JUSTSO, JSTSO2, JULMAR
1) C00506 00219 JUSMAR
1) C00511 00220 JUSTCR, JCRTB, JCR2, JFIX, JPTAB, JATAB
1) C00514 00221 NXTLIN, NXTLN2, JTAB, NXTBL
1) C00520 00222 JDUMP, JDMP2, JDLT, JDL1, JDISP2
1) C00524 00223 JDSP1, JDSP2, JDSP3, JDTAB, JFLUSH
1) C00526 00224 JDFIN
1) C00529 00225 JDFIN2, JSET, JSET2
1) C00531 00226 INDENT,ALINE,CENTER,JLEFT,JOIN
1) C00534 00227 LEFMAR,SHIFTY
1) C00538 00228 MACRO FREE STORAGE - MFSCLR,GETMFS,FREMFS
1) C00540 00229 MACRO DEFINER INPUT WATCHERS - INCHWL,INCHSL,SNEAKW,INCHRS,etc.: MACTYI
1) C00542 00230 ZDATA,ZSIX,ZBLT,ZEDFIL,ZLIST,EXIST
1) C00556 00231 LAMBDA,EPSIL,NWFILE,HOME,QUERY,HOMEG,LAMBDG
1) C00565 00232 ********* BEG OF ESSAY DEFS *********
1) C00584 00233 SUBSTR
1) C00595 00234 SPOOLC
1) C00600 00235 BEGIN SPSUB
1) C00607 00236 TELBUF,CHKUP,CHECKU,CHTEXT,ASCASC,CHOUT3,CHOUT6
1) C00614 00237 TELLME,FBI
1) C00628 00238 PDL, PATCH, PAT, ZVARS, LEGTAB
1) C00630 ENDMK
1) C⊗;
*** E[CSP,SYS] *** PAGE 1 LINE 11
2) C00046 00009 BEG0, BEG1, BEG1A, BEG2, BEGBKP, BEGSY2, BEGSY3
2) C00050 00010 BEG3,BEG4
2) C00053 00011 MAIN, FNF, FNF2
2) C00056 00012 CMDIN, CMDLUP, CMDEX, CMDX, CMDX2
2) C00059 00013 CMDED, CMDRD, CMDRD2, MINUS, PLUS, NUMS, INFIN, ALTSET
2) C00061 00014 CMDERR, ERR, POPJ1, EXTNUL, CPOPJ, CBTAB, ICHTAB, ILLRDO, ILLDIR, ILLMES, ILLMS2, ERRX, ILLBK
1) E.48[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 07-08-75 08:31 PAGES 1,1
2) C00063 00015 INIT, INIT0, INIT1, INI1, IOBARF
2) C00067 00016 CMDSP
2) C00070 00017 XCMDS, XDISP, MCMDS, MDISP
2) C00072 00018 EXTEND, EXTEN1, EXTL0, EXTL, EXTL1, EXTL2, EXTL3
2) C00074 00019 EXTLK0, EXTLK, EXTAMB, EXTNUL, EXTNF, EXTAM2, EXTBUF, EXTBFE
2) C00076 00020 READON, ROSET, READWR, NORDWR, CANCEL, SNKOFF, SNKON, DPYALW, DPYSKI, NORDOW
2) C00079 00021 DDTGO, R, DRAW, DRAWX, PPSET, LINCNT
2) C00082 00022 GETOUT, GETOU1, FINISH, FINI1, FINI2, GORPG, QUIT, CLOSIT, GODRD
2) C00084 00023 NEWPAG, NEWPG, NEWPG0, NEWPG1, REREAD, PGINIT, NODEL, PGERR, FINSRT
2) C00088 00024 UNWIND, WIND, WIND1, LT, GT, LTE, GTE, TOP, BOT, JMP, UPARR, DWNARR
2) C00090 00025 XMARK--The `M' commands.
2) C00101 00026 DELLIN, DELPOS
2) C00103 00027 DELLP, DELL2
2) C00106 00028 DELPM, DELPM1, DELPM2, DELPM3
2) C00108 00029 DELPAG, DELPG1, ADJPG, ADJPGL
2) C00110 00030 RCOMP, RCOMP1, RCOMP2, RCOMPX
2) C00111 00031 DELETE, DELET1, ADDPAG
2) C00113 00032 APPEND, APPLUZ
2) C00115 00033 APPEN2, PMTXT, PMPAG
2) C00117 00034 INSERT
2) C00118 00035 INSER1, INSER2, INSER3, INSER4, INSER5
2) C00119 00036 INSER8, DIRADD
2) C00121 00037 INSER6, INSER7, MARK
2) C00122 00038 CONTQ
2) C00124 00039 ATTACH, ATTCH1, ARGCHK, ARGCHN
2) C00126 00040 ATTDO, ATTDO0, ATTDO2, ATTDO1
2) C00128 00041 ATTREP, ATTEX
2) C00130 00042 ATTKIL, ATTKL, ATTSRC, GPAGL, GPAGL0, GPAGL1, GPAGL2, GPAGL3, ATTWRT
2) C00132 00043 ATTCOP, ATTCP1, ATTCP
2) C00133 00044 ATTCP0, ATTCPL, ATCMOR, ATTCP2, ATTCP3, GPAGL
2) C00135 00045 EDIT, EDIT1, LINED, LINL1, EDDSP, EDARG, EDARGX
2) C00137 00046 EDFULL, EDTAB, EDNUL, EDCR, AGAIN, EDRP1, EDRPT
2) C00139 00047 EDGL, EDGL1, EDGL2, EDGL2A
2) C00142 00048 EDGL3, EDGL4, REEDIT, EDTMOR, EDGDSP, EDTAB2, PTOUT, PTPNT
2) C00145 00049 EDCR2, EDACT, EDITIT, REPLIN, PUTBAK
2) C00148 00050 EDPUT, EDPLR
2) C00150 00051 EDPS, EDPL, EDPLUZ
2) C00151 00052 EDSNK, EDSNK2, EDSNK3, ESDSP, ESALT
2) C00152 00053 CRDSP, REGCR, REGCR1, REGCR2
2) C00153 00054 CONTCR, CNTCR2, METACR, REPRST, REPRS2
2) C00155 00055 LECR, DUBLCR, DUBCR2
2) C00157 00056 INSONA, INSONE, INSNUL, INSNLP
2) C00159 00057 LININS, LINSLP, LINS1, LINGLP, LIDSP, LINTAB
2) C00161 00058 LINCR1, LINCR, LICCR, LINALT, LINCOM
2) C00162 00059 LINSTO, LINST1
2) C00164 00060 SETWRT, SETWR2, SETWRX, BTAB, BUF, RBUF
2) C00166 00061 FRD, FRD0, FRD1, NOEXT, NOPRG, NOPPN, NOSWIT, SWITL
2) C00170 00062 SETDEV, GETNAM, GETNML, GETP, GETPL, DTYI1, DTYI, DTYI2
1) E.48[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 07-08-75 08:31 PAGES 1,1
2) C00172 00063 DOSWIT, NTYI, NTYIL, NTYIM, EDFIL, EDFIL2, SRCFIL, DSTFIL
2) C00175 00064 RSCAN, RSCAN0, RSCAN1, RSCAN2, RSCAN3, RSCAN4, RSCN4B, RSCN4C, RSCN4A, RSCN0A
2) C00179 00065 RSCAN5, RSCAN6, RSCAN7, RSCAN8, SYSCCK, CRECHK
2) C00181 00066 RSTYI, TYI1, TYI2, TYI3, TYIX, TYI4
2) C00183 00067 TYI, TYIT, TYIU
2) C00184 00068 TMPRED, TMPRD1, TMPRD2, TMPRDX, RPGRD1, BKPRED
2) C00190 00069 TMPWRT, BKPWRT
2) C00194 00070 FILERR, FILTYP, FILSTR, PPNTYP, FILETB
2) C00196 00071 SIXTYO, SIXTYL, SIXTY2, SIXTYN, SIXTNL, SIXTNN, PNTYO, PNTYOL
2) C00197 00072 UUOH, UUODSP, UFCE, UTYPCH, UTYPC2, UTYPDE, UTYPOC
2) C00199 00073 UTYPR, UTYPR1, USORRY, UFATAL,FATFIX,TELLX,TELLZ
2) C00203 00074 OPENI, OPNOI, IOPEN, SETI, SETRLD, OPNDEV, RELDEV, OPNLUZ
2) C00207 00075 RLD, RLD1, RLD2, RLDX, RLDLUZ, FIXEOF, ENTLUZ, ENTL2,RLDCHK
2) C00215 00076 EXTCHK, EXTCH1, EXTCH2, EXTCH3, EXTCH4, EXTTAB
2) C00217 00077 OPENW, OPENO, SETO, FPAUSE, PAUSE, PAUS2
2) C00219 00078 CLOSO, WRBUF, WRBF1, WRBF2, ENTR, OBUF
2) C00220 00079 MORCOR, INTLUZ, INTDSP, PDLOV, PDLOV1, PDLOV2, PDLOV3, ISAV, TSINT, TSNINT
2) C00223 00080 FSINI, FSINI1, MORCOR
2) C00226 00081 FSGET, FSLUP0, FSLUP, FSGRAB, FSXIT
2) C00227 00082 FSNEWT, FSNEWP, FSNEW
2) C00228 00083 FSUSED, FSTSML, FSNEXT, FSHRET, FSLLUZ
2) C00230 00084 FSLSCN, FSLSCL, FSLFR, FSLSHF, FSLSLP, FSLMOV, FSLDON
2) C00232 00085 FSHSCN, FSHSCL, FSHFR, FSHSHF, FSHSLP, FSHSR, FSHMOV
2) C00234 00086 FSBLT, POPTJ, FSBLT1
2) C00235 00087 FSBLT2, FSBLT3, FSHBLT, FSHBL2
2) C00236 00088 PNTREL, SHFTB, STDSH1, STDSHF, RELOC, RELOCL
2) C00238 00089 FSGIVE, FSGIV1, FSGIV2
2) C00239 00090 CORCHK, CRUNCH, CMPACT
2) C00241 00091 ENDSET, ENDFIX
2) C00242 00092 FSCHK, FCLUP1, FCLUP2, FCFR, FCDON
2) C00244 00093 FUCHK, MOVIT, MOVTX
2) C00246 00094 PURINI, PLCHK, PL2CHK, PLCHKL, PLSCN0, PLSCN, PLSCN1, PLSCN2, PLSCN3
2) C00248 00095 PURCHK, PURCH1, PURCH2, PURCH3, PURC3A
2) C00251 00096 PURCH4, PURCH5, PURCH6, PURCH7, PURCLC, TYPHW, PURCK, PLCHK1, PLCHK2, PURFLG
2) C00253 00097 SAVIT
2) C00254 00098 CHECK, CHECK1, CHECK2
2) C00255 00099 CHKDIR, CHKDPL
2) C00257 00100
2) C00259 00101 CHKLST, CHKFS, CHKFSL, CHKFS2, CHKPNT, CHKPN2
2) C00260 00102 CHKPAG, CHKPGP
2) C00261 00103 CHKPG1, CHKPG2, CPDSP, CHKPGT, CHKPTL
2) C00263 00104 CHKPG3, CHKPG4, CHKPG5, CHKPG6
2) C00264 00105 CHKATT, CHKNAT
2) C00265 00106 CTAB 0-37
2) C00269 00107 CTAB 40-77
2) C00271 00108 CTAB 100-137
2) C00273 00109 CTAB 140-177
2) C00275 00110 GETDIR
1) E.48[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 07-08-75 08:31 PAGES 1,1
2) C00279 00111 DIRCL2, DIRCL, DIRCL1, GETDR1
2) C00281 00112 DIRLIN, DIRLUP, DIRDON
2) C00285 00113 LOSDIR, BADDIR, NODIR, DIRNUM, GDDSP, LSKP1, DIRSHF, DIREND
2) C00288 00114 COPFIL, COPFL1, COPDO, COPYX, COPDAT, COPLUP
2) C00290 00115 COPCOR, COPCHK, YESCHK, COPCMD
2) C00292 00116 FORMAT, FMTOK, FMTDSP
2) C00298 00117 NEWDIR, NEWDLP, SKPDSP, NEWDFF, OPUT, OSET, TMPDIR
2) C00299 00118 MAKDIR, MAKDR0, MAKDR1, MAKDOL, MDOL1
2) C00301 00119 MDIL1, MDIL1A, MDIL2, MDIL2A, MDCSRC, MDCSR1, MD1DSP
2) C00303 00120 MDIL1B, MAKDLF, MAKDFF, MDFF2, MDFF3, MDCEOL, MD2DSP
2) C00305 00121 MD1CR, MD2CR, MD3CR, MD3CR1, MDIL3, MDCRCK, MDFIX, MDLFCK
2) C00308 00122 CREATE, CREAT2, CTEXT
2) C00310 00123 RDSPA1,RDPAGE, RDPGOK, RDSPAG, RDPAG0
2) C00313 00124 RDPAG2, RDPAG1, RDLINE, RDLLP, RDLTAB
2) C00317 00125 RDLCR, RDLLF, NUMSTR,NUMSIX,OCTSTR,OCTASC
2) C00320 00126 RDLFF, RDLDON, LINSET, RPDSP, RDLNUL
2) C00322 00127 RDPGLZ, SOSTST, SOSCHK, SOSCK2, PGMK, PGMK2
2) C00324 00128 DIRCHK, DIRNEW, DIRNW2, DIRNW1, TXTSHF
2) C00326 00129 FNDLIN, FNDPAG, FNDLN1, FNDLN2, FNDLN3
2) C00327 00130 REMPTR, FIXPTR, FNDPT1, FNDPT2, LPTRTB, DPTRTB
2) C00329 00131 DIRGET, DIRGL, DGEND, DRGSET
2) C00331 00132 NUM5, NUM5A, DIRHED, DIRTXT, DIREMK, DGDSP
2) C00333 00133 OUTDIR, OUTDOK, OUTDLP, ODDSP, ODDON, ODEXP
2) C00335 00134 INSDIR, DCLP1, DCLP2, DCNG, INSDL
2) C00337 00135 IDDSP0, IDDSP, IDTAB, INSD3, INSD4, SCOMS, SCOMS2
2) C00339 00136 IDNUL, IDDON, IDDONS
2) C00341 00137 DIRSET, DIRST1, DIRUP, DIRUP1, DIRUP2, DIRUP3
2) C00342 00138 DIRFIX, DIRFX1, DIRFX2, DIRFX3, DIRFX4, DIRFXN
2) C00344 00139 DISPLAY DATA STORAGE
2) C00346 00140 MORE DISPLAY STORAGE
2) C00347 00141 HEADERS & TRAILERS
2) C00349 00142 DPYINI, DPYCHK
2) C00352 00143 DPYI2, NODPY, WIPE, IWIPE
2) C00355 00144 SETSCR, NMVARR, MOVARR, SETARR, DSTRL, TRLARR
2) C00358 00145 ARRBOT, ARRTOP, SETWIN, WINCHK, WINCH2
2) C00362 00146 DISP, DISP0, DISP1, DISP2
2) C00364 00147 DISP3, DISP4, DISP5, DUMMY, EXCLR, EXSET,EXTST
2) C00366 00148 DISPAT, DISPAX
2) C00367 00149 DWNWIN, REWIN, DDISPX, DDSPX2, DDDONE, WIPIT, WIPL, WIPL2
2) C00369 00150 DDCOP, DDLUZ, LINREL, LINRLL, IDISP, IDISP2
2) C00370 00151 IIIARR, IIIAR2, IIIAR3
2) C00372 00152 LESET, LEADJ, LECLR
2) C00373 00153 DBLT, DBLT1, DBLT2, DBLT3, IDISPX, DISPX, PPBAJ1, POPBAJ, POPAJ
2) C00375 00154 PCOMPD, PCOMPI, PCOMPS, P2CMPD, P2CMPI
2) C00376 00155 DDISP, DDISP2
2) C00377 00156 DOARR, DOAR2, OFFARR, ONARR
2) C00378 00157 DDISPS, DDSPS2, DDSPS3, DDSPSX, DDSPS4
2) C00380 00158 DSPSAT, DSPSAX
1) E.48[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 07-08-75 08:31 PAGES 1,1
2) C00381 00159 DBLTS, DBLTS2, DBLTSN, DBLTS3, DBLTS1, DBLTSA, DBLTA, DBLTA2
2) C00383 00160 TDISP, TDISP1, TDISP2, TDSP2A, TDISPX
2) C00385 00161 TDISPC, TDISP3, TDISP4, TDISP5, TYPE, TYPEL
2) C00386 00162 WRPAGE, WRPAG1, WRPAG2, WRBOOK
2) C00388 00163 WRPX0, WRPX, WRPX1, WRPX1A, WRPX1B, WRPX2
2) C00389 00164 WRPX3, WRPX4
2) C00390 00165 WRPOK, WRTIT, WRT0
2) C00391 00166 WRP1, WRLINE, WRLUP, WRLP2, WRRDO, WRRDO2, WRRDO3
2) C00393 00167 WRDSP, WRTAB, WRCHK, WRDONE, WRDON2
2) C00395 00168 WRPM, BTAB2
2) C00397 00169 FLSPAG, FLSPGL, FLSPG2, CLRWRT, CLRWR2
2) C00398 00170 TV, RSYS, RUN, RUN1
2) C00401 00171 RUNILL, RUNNON, RUNFNF, RUNDEV, RUNFIL
2) C00402 00172 SEARCH ROUTINES
2) C00404 00173 SREAD, SREAD1, SREAD2, SREAD3, SREAD4, SRSTOR, SRSTR2
2) C00416 00174 SRACT, SREAD5, SRALT, SRALT2, SRALUZ, SREDT,ASTER,BSLAS
2) C00425 00175 FINDIT, FOUND, FNDMOV, FNDERR
2) C00429 00176 FIND
2) C00431 00177 DIRSRC, DFERR, SRCDF, SDFCR
2) C00433 00178 SSET, SSET2
2) C00434 00179 SCOMP, SCOMPX, SCOMPR
2) C00436 00180 SBARF, SBARF1, SARRGH, SFSGT, SFSGET, SFSPUT, SFSPTL
2) C00438 00181 SPARSE
2) C00439 00182 SPARS1, SPARS2, SPDSP, SSCAN, SSCANA, SSCANX
2) C00441 00183 SSCAN1, SSCN1A, SSCN1B, SSCQT, SSCBIN, SSCINF, SSCNOT, SSCUOP, SSCVB
2) C00443 00184 SSCLP, SSCDSP
2) C00444 00185 SGRAPH, SGRPH1, SGRPH2, SGRPHX, SGDO1, SGDO1X, SGDOX2, SGDSP, SGDO1B
2) C00446 00186 SGNOT
2) C00447 00187 SBACK, SBACK1, SBACK2, SBACK3, SBACK4
2) C00449 00188 SBBRCH, SBBR2
2) C00450 00189 SBCALC, SBCAL0, SBCAL1, SBCAL2, SBCAL3
2) C00451 00190 SBCAL4, SBCNON, SBCX, SBCOPL, SBCOP2, SBCEND, SBCEN2, SBCFIX, SBCFXL, SBCFXE, POPJ2
2) C00453 00191 SBCOK, SBCEN1, SBCLUZ, SBCLZ1, SBCNXT, SBCBP, SBCBPL
2) C00455 00192 SBCCB, SBCCB1, SBCCB2, SBCCB8, SBCCB3, SBCCB4, SBCCB5
2) C00457 00193 SBCCB6, SBCCB7, BITCNT, BITCN1
2) C00458 00194 NEWBIT, NEWBT0, NEWBT1, NEWBT2, NEWBT3, NEWBT4, NEWBT5
2) C00460 00195 NEWBTC, NEWBC1, NEWBC2, NEWBC3, NEWBNC, NEWBN1, NEWBN2, NEWBN3, NEWBCZ, NEWBNZ
2) C00462 00196 SCCOM, SCCNOT
2) C00463 00197 SCCBIT
2) C00464 00198 MAKBIT, MAKBT0, MAKBT1, MAKBTN, MAKBN2, MAKBTB, MAKBB3
2) C00466 00199 MAKBNB, MAKBBT, MAKBB2, MBDSP, MBIND, MBIND2
2) C00468 00200 SCGEN
2) C00469 00201 SCGEN1, SCGEN2, SCGEN3, SCGEN4, SCGEN5, SCGEN6
2) C00471 00202 SCGTST, SCGT2, SCGT3, SCGDSP, SCGCN, SCGCN2, SCGBTN, SCGBT
2) C00473 00203 SCGE, SCGE2, SCGEL, SCGBAK, SCGBK1, SCGBK2, SCGBK3, SCGFA, SCGNC, SCGNFA
2) C00475 00204 SCGHB, SCGHB0, SCGHB5, SCGHB1, SCGHB2, SCGHB3, SCGHB4, SCGHBX, SCGHX2
2) C00477 00205 SCGCB, SCGCB0, SCGCB1, SCGCB2, SCGCB3, SCGCB4, SCGCB5, SCGHCB
2) C00479 00206 SBTMAK, SBTMK1, SBTMK2, SBTMK3, SBTMK4, SCGENB, SCGHB, SSVINS, SCXCT, SBKNW, SBKNWA, SBKDSP
1) E.48[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 07-08-75 08:31 PAGES 1,1
2) C00481 00207 SRCPAG, SRCPG1
2) C00483 00208 GBYTP, GBYTPL, GBTPX, GBPDSP, GBPTAB
2) C00484 00209 SRCPGF, SPFTAB, SPFCR, SPFLUZ
2) C00485 00210 SRCPGB, SPFTAB, SBKNL, SBKNUL
2) C00486 00211 SRCSET, SRCST1, SRCSTL, SRCST2
2) C00487 00212 SCALL, SRCHX, SRCHLX
2) C00488 00213 SCNBAK, SCNBKL
2) C00490 00214 SCONTF, SRCFNP, SRCFNB, SFNB2, SFRETR
2) C00492 00215 SRCFF, SFFNUL, SGTACS, SRTACS
2) C00493 00216 SRCFB, SFBNUL, SBKNB, SBKNB2, SIOERR, SBKNP
2) C00494 00217 JFILL, JUST, JUSTL1, JUSTL2, JDISP
2) C00504 00218 JUSTTB, JUSTSP, JUSTS2, JUSTSL, JUSTS3, JUSTSO, JSTSO2, JULMAR
2) C00507 00219 JUSMAR
2) C00512 00220 JUSTCR, JCRTB, JCR2, JFIX, JPTAB, JATAB
2) C00515 00221 NXTLIN, NXTLN2, JTAB, NXTBL
2) C00521 00222 JDUMP, JDMP2, JDLT, JDL1, JDISP2
2) C00525 00223 JDSP1, JDSP2, JDSP3, JDTAB, JFLUSH
2) C00527 00224 JDFIN
2) C00530 00225 JDFIN2, JSET, JSET2
2) C00532 00226 INDENT,ALINE,CENTER,JLEFT,JOIN
2) C00535 00227 LEFMAR,SHIFTY
2) C00539 00228 MACRO FREE STORAGE - MFSCLR,GETMFS,FREMFS
2) C00541 00229 MACRO DEFINER INPUT WATCHERS - INCHWL,INCHSL,SNEAKW,INCHRS,etc.: MACTYI
2) C00543 00230 ZDATA,ZSIX,ZBLT,ZEDFIL,ZLIST,EXIST
2) C00558 00231 LAMBDA,EPSIL,NWFILE,HOME,QUERY,HOMEG,LAMBDG
2) C00569 00232 ********* BEG OF ESSAY DEFS *********
2) C00588 00233 SUBSTR
2) C00599 00234 SPOOLC
2) C00604 00235 BEGIN SPSUB
2) C00611 00236 TELBUF,CHKUP,CHECKU,CHTEXT,ASCASC,CHOUT3,CHOUT6
2) C00618 00237 TELLME,FBI
2) C00632 00238 PDL, PATCH, PAT, ZVARS, LEGTAB
2) C00634 ENDMK
2) C⊗;
******** E.48[CSP,SYS] **** PAGE 2 LINE 14
1) JUNE 25 E.46(P524) June 27 E.47(P524) July 1 E.48
1) see E.46 for details as to changes in earlier versions
*** E[CSP,SYS] *** PAGE 2 LINE 14
2) JUNE 25 E.46(P524) June 27 E.47(P524) July 1 E.48(P528)
2) July 6 E.49
2) see E.46 for details as to changes in earlier versions
******** E.48[CSP,SYS] **** PAGE 2 LINE 20
1) />
*** E[CSP,SYS] *** PAGE 2 LINE 21
1) E.48[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 07-08-75 08:31 PAGES 2,2
2) E.49 E-manual no longer assigned a referable number and reopens at previous
2) page and line.
2) />
******** E.48[CSP,SYS] **** PAGE 2 LINE 34
1) Early versions of E that were up for varying lengths of time:
1) Nov. 6 1974. E.7 Nov. 8 1974. E.8 Nov.17 1974. E.10
1) Nov.18 1974. E.10 Dec. 3 1974. E.12 Dec. 9 1974. E.15
1) Dec.10 1974. E.16(P424) Dec.14 1974. E.17(P431) DEC.17 1974. E.18(P431)
1) Dec.18 1974. E.19(P431) Jan.3 1975. E.20(P439 Jan.5,1975 E.21(P439)
1) Jan.10,1975. E.22(P442) Jan 15,1975 E.23(P442) Mar.12,1975. E.26(P474)
1) Mar.13,1975 E.27 Mar.17 1975 E.27(P477) Mar.19 1975 E.28(P477)
1) DATA STRUCTURE.
*** E[CSP,SYS] *** PAGE 2 LINE 37
2) DATA STRUCTURE.
******** E.48[CSP,SYS] **** PAGE 9 LINE 1
1) ;BEG0, BEG1, BEG1A, BEG2, BEGBKP
1) BEG0: JSP P,INIT ;INITIALIZE
*** E[CSP,SYS] *** PAGE 9 LINE 1
2) ;BEG0, BEG1, BEG1A, BEG2, BEGBKP, BEGSY2, BEGSY3
2) BEG0: JSP P,INIT ;INITIALIZE
******** E.48[CSP,SYS] **** PAGE 10 LINE 68
1) MOVE T,ZINDEX
1) MOVE C,EDFIL
1) CAMN C,ZDATAF
1) MOVEM C,ZDATA(T)
1) IFN BOOKMD, {
*** E[CSP,SYS] *** PAGE 10 LINE 68
2) PUSHJ P,ZLIST
2) IFN BOOKMD, {
******** E.48[CSP,SYS] **** PAGE 11 LINE 64
1) MOVE T,ZINDEX ;Prepare to overwrite bad file name.
1) ; CAME T,ZOLDX ;Only overwrite if there is some place to go to
1) SETZM ZDATA(T)
1) OUTSTR [ASCIZ/
*** E[CSP,SYS] *** PAGE 11 LINE 63
2) OUTSTR [ASCIZ/
******** E.48[CSP,SYS] **** PAGE 61 LINE 71
1) ; SKIPE RDONLY ;/F/R implies /N
1) E.48[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 07-08-75 08:31 PAGES 61,61
1) ; SKIPN EDFIL-2
1) ; JRST .+2
1) ; HRLOM D,4(D)
1) SKIPN EDFIL-2
*** E[CSP,SYS] *** PAGE 61 LINE 71
2) SKIPN EDFIL-2
******** E.48[CSP,SYS] **** PAGE 61 LINE 82
1) PUSH P,C
1) PUSHJ P,ZLIST
1) POP P,C
1) REPEAT 0,< ;THIS WILL NOT WORK NOW BECAURE OF ALS CHANGES
*** E[CSP,SYS] *** PAGE 61 LINE 78
2) REPEAT 0,< ;THIS WILL NOT WORK NOW BECAURE OF ALS CHANGES
******** E.48[CSP,SYS] **** PAGE 70 LINE 3
1) FILERR: MOVE T,ZINDEX
1) SETZM ZDATA(T) ;Prepare to overwrite bad data
1) HRRE T,1(D)
1) CAIGE T,NFLERS
*** E[CSP,SYS] *** PAGE 70 LINE 3
2) FILERR: HRRE T,1(D)
2) CAIGE T,NFLERS
******** E.48[CSP,SYS] **** PAGE 230 LINE 9
1) -2 Line count for /F mode.
1) -1 Name of device in SIXBIT (DSK, UDP etc)
*** E[CSP,SYS] *** PAGE 230 LINE 9
2) -2 Number of lines per page in /F mode.
2) -1 Name of device in SIXBIT (DSK, UDP etc)
******** E.48[CSP,SYS] **** PAGE 230 LINE 49
1) ZDATA: BLOCK ZSIZE ;Space for file names and data
1) 0
*** E[CSP,SYS] *** PAGE 230 LINE 49
2) ZDATA: BLOCK ZSIZE-2 ;Space for file names and data
2) 0 ;Not /F for QUERY (?) reference
2) 446353000000 ;DSK
2) 450000000000 ;E
2) 415463000000 ;ALS
2) 0 ;to match EDFIL
2) 006560445743 ;UPDOC
2) BLOCK ZENT-4 ;Space for rest of QUERY (?) data
2) 0
1) E.48[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 07-08-75 08:31 PAGES 230,230
******** E.48[CSP,SYS] **** PAGE 230 LINE 59
1) ZDATAR: 0 ;Return reference index to ZDATA
1) ZDATAN: 0 ;Newly requested reference index to ZDATA
1) PURE
1) ZSAVE: MOVE T,ZDATAR
1) MOVEM T,ZDATAN ;Save to permit back-up if trouble
1) MOVE T,ZINDEX ;Get ready to save current file info.
1) MOVEM T,ZOLDX ;ZOLDX may be used if new file not found
1) TLO F,ZATT ;To preserve attach status
1) TRNN F,REDNLY ;Don't change home designation if read-only
1) MOVEM T,ZDATAR ;Save new home index
1) MOVE TT,ARRL
*** E[CSP,SYS] *** PAGE 230 LINE 61
2) ZOLDF: 0 ;Old flags saved
2) ZDATAR: 0 ;Return reference index to ZDATA
2) ZDATAN: 0 ;Back-up reference index
2) ZFLAGR: 0 ;Return flag condition
2) ZFLAGN: 0 ;Back-up flag condition
2) PURE
2) ZSAVE: MOVE T,ZINDEX
2) MOVE TT,ARRL
******** E.48[CSP,SYS] **** PAGE 230 LINE 128
1) PUSH P,T
1) PUSH P,TT
1) PUSH P,C
1) MOVEI T,0
*** E[CSP,SYS] *** PAGE 230 LINE 133
2) SKIPN QUERYF# ;Are we switching to E.ALS[UP,DOC]?
2) JRST .+3 ;No
2) SETZM QUERYF ;Yes, turn of indicator
2) POPJ P, ;and don't rewrite
2) MOVEI T,0
******** E.48[CSP,SYS] **** PAGE 230 LINE 145
1) JRST ZLIST3
1) ZLIST2: ADDI T,ZENT ;Go to next entry
*** E[CSP,SYS] *** PAGE 230 LINE 151
2) JRST ZLIST3 ;Over+write data since some may be changed
2) ZLIST2: ADDI T,ZENT ;Go to next entry
******** E.48[CSP,SYS] **** PAGE 230 LINE 167
1) MOVE C,EDFIL
1) E.48[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 07-08-75 08:31 PAGES 230,230
1) MOVEM C,ZDATAF#
1) SETZM ZDATA(T) ;Safety precaution in case file is not found
1) ; MOVEM D,ZDATA(T)
1) ; SKIPG C,SLINE
1) ; MOVEI C,1 ;We want this to always be greater than 0
1) ; TLO C,1 ;Similarly with SPAGE
1) ; SKIPLE SPAGE
1) ; HRL C,SPAGE
1) ; MOVEM C,ZDATA+1(T) ;May be overwritten, but save just in case
1) ZLIST5: POP P,C
1) POP P,TT
1) POP P,T
1) POPJ P,
1) ESSAY,<
*** E[CSP,SYS] *** PAGE 230 LINE 173
2) ZLIST5: POPJ P,
2) ESSAY,<
******** E.48[CSP,SYS] **** PAGE 230 LINE 248
1) JRST .+3
1) TYPCHR "]" ;Mark current file differently for convenience
1) SKIPA
1) TYPCHR ")"
1) TYPCHR " "
*** E[CSP,SYS] *** PAGE 230 LINE 240
2) JRST EXIST3
2) HRLZ A,CURPAG
2) HRR A,ARRL
2) MOVEM A,5(D) ;Put latest values inte ZDATA
2) TYPCHR "]" ;Mark current file differently for convenience
2) SKIPA
2) EXIST3: TYPCHR ")"
2) TYPCHR " "
******** E.48[CSP,SYS] **** PAGE 231 LINE 17
1) MOVEM F,FOLD# ;Might be needed if command is aborted
1) TRO F,REDNLY ;Set for read only
*** E[CSP,SYS] *** PAGE 231 LINE 17
2) MOVEM F,ZOLDF
2) TRO F,REDNLY ;Set for read only
******** E.48[CSP,SYS] **** PAGE 231 LINE 26
1) MOVEM F,FOLD ;May be needed if command is aborted
1) TRZ F,REDNLY ;Set for READWRITE
*** E[CSP,SYS] *** PAGE 231 LINE 26
1) E.48[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 07-08-75 08:31 PAGES 231,231
2) MOVEM F,ZOLDF
2) TRZ F,REDNLY ;Set for READWRITE
******** E.48[CSP,SYS] **** PAGE 231 LINE 30
1) SETZM DIR ;So that new directory will be created.
*** E[CSP,SYS] *** PAGE 231 LINE 30
2) MOVE T,ZINDEX
2) MOVE TT,ZOLDF
2) CAIN T,ZNUM*ZENT
2) JRST [MOVE T,ZDATAN↔MOVE TT,ZFLAGN↔JRST .+1]
2) EXCH T,ZDATAR
2) MOVEM T,ZDATAN
2) EXCH TT,ZFLAGR
2) MOVEM TT,ZFLAGN
2) SETZM DIR ;So that new directory will be created.
******** E.48[CSP,SYS] **** PAGE 231 LINE 38
1) CAIL T,ZNUM
1) JRST EPSIL4
*** E[CSP,SYS] *** PAGE 231 LINE 42
2) CAILE T,ZNUM ;QUERY is now just beyond and is included
2) JRST EPSIL4
******** E.48[CSP,SYS] **** PAGE 231 LINE 47
1) SETZM RDONLY
1) MOVE F,FOLD
1) TRNE F,REDNLY
1) SETOM RDONLY
1) MOVE T,ZDATAN
1) MOVEM T,ZDATAR ;Restore old HOME designation
1) MOVE T,ZOLDX
1) MOVEM T,ZINDEX ;Restore this also.
1) JRST EPSIL1 ;And go back to old file
1) EPSIL3: MOVEM A,EDFIL
*** E[CSP,SYS] *** PAGE 231 LINE 56
2) SETZM RDONLY ;restore read status
2) MOVE F,ZOLDF
2) TRNE F,REDNLY
2) SETOM RDONLY
2) MOVE T,ZOLDX
2) MOVEM T,ZINDEX
2) CAME T,ZDATAR
2) JRST EPSIL1 ;We came from QUERY so we are through
2) MOVE TT,ZDATAN ;Restore old HOME designation
2) MOVEM TT,ZDATAR
1) E.48[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 07-08-75 08:31 PAGES 231,231
2) MOVE TT,ZFLAGN
2) MOVEM TT,ZFLAGR
2) JRST EPSIL1
2) EPSIL3: MOVEM A,EDFIL
******** E.48[CSP,SYS] **** PAGE 231 LINE 117
1) JRST BEGSY2 ;Now we go process new filename.
*** E[CSP,SYS] *** PAGE 231 LINE 130
2) MOVE A,[-5,,EDFIL] ;Make SRCFIL and DSTFIL point to EDFIL for now.
2) HRRZM A,SRCFIL-EDFIL(A)
2) HRRZM A,DSTFIL-EDFIL(A)
2) AOBJN A,.-2
2) JRST BEGSY2 ;Now we go process new filename.
******** E.48[CSP,SYS] **** PAGE 231 LINE 126
1) ;The H (HOME) command allows one to return to the last previous read-write file
1) ;which is presumed to be the home file.
*** E[CSP,SYS] *** PAGE 231 LINE 143
2) ;The H (HOME) command allows one to return to the last previous file
2) ;which is presumed to be the home file.
******** E.48[CSP,SYS] **** PAGE 231 LINE 137
1) MOVEM F,FOLD
1) MOVE T,ZDATAN
1) MOVEM T,ZINDEX ;Save just as in EPSIL0
1) TRZ F,REDNLY ;Set for READWRITE
*** E[CSP,SYS] *** PAGE 231 LINE 154
2) MOVEM F,ZOLDF
2) MOVE T,ZINDEX
2) MOVEM T,ZOLDX
2) MOVE TT,F
2) CAIN T,ZNUM*ZENT
2) JRST [MOVE T,ZDATAN↔MOVE TT,ZFLAGN↔JRST .+1]
2) EXCH T,ZDATAR
2) MOVEM T,ZINDEX
2) EXCH TT,ZFLAGR
2) TRNN TT,REDNLY
2) JRST .+4
2) TRO F,REDNLY
2) SETOM RDONLY
2) JRST EPSIL1
2) TRZ F,REDNLY
2) SETZM RDONLY
2) JRST EPSIL1
2) MOVEM F,ZFLAGR
1) E.48[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 07-08-75 08:31 PAGES 231,231
2) MOVE T,ZDATAN
2) MOVEM T,ZINDEX ;Save just as in EPSIL0
2) MOVE T,ZFLAGN
2) TRNN T,REDNLY
2) JRST .+4
2) TRO F,REDNLY
2) SETOM RDONLY
2) JRST EPSIL1
2) TRZ F,REDNLY ;Set for READWRITE
******** E.48[CSP,SYS] **** PAGE 231 LINE 166
1) MOVEM F,FOLD
1) TRNN F,ARG ;IF WE GOT NO ARG
*** E[CSP,SYS] *** PAGE 231 LINE 188
2) MOVEM F,ZOLDF
2) TRNN F,ARG ;IF WE GOT NO ARG
******** E.48[CSP,SYS] **** PAGE 231 LINE 166
1) ;QUERY allows one to reference the file E.ALS[UP,DOC] to check on some feature
1) ;of E without losing ones place in the file being edited.
1) QUERY: PUSHJ P,ZSAVE ;Save a record of present conditions
1) ANDI F,ATTMOD!REDNLY
1) TLO F,ZATT
1) MOVEI T,0
1) MOVEI TT,[ASCIZ \E.ALS[UP,DOC]/1P/1L/R\]
1) PTWRS7 T ;This should put the string into the PTY buffer
1) MOVEI TT,15 ;We need a carriage return without a line feed
1) PTWR1W T ;Init. the marks array.
1) JRST EPSIL6
1) ;********* BEG OF ESSAY DEFS *********
*** E[CSP,SYS] *** PAGE 231 LINE 198
2) ;QUERY allows you to reference the file E.ALS[UP,DOC] to check on some feature
2) ;without losing your place in the file being edited. You gets back home by the H
2) ;command. On a second call, QUERY now remembers where you were and returns there.
2) QUERY: MOVE T,ZINDEX
2) CAIN T,ZNUM*ZENT ;Are we already in E.ALS[UP,DUC]
2) JRST QUERY2 ;Yes
2) MOVEI A,ZNUM ;Data is just beyond the other ZDATA
2) TRO F,ARG ;Pretend that there was an argument of ZNUM
2) SETOM QUERYF ;Set flag to prevent storing at ZLIST time
2) JRST LAMBDA
2) QUERY2: OUTSTR [ASCIZ /
2) You are already in E.ALS[UP,DOC]!/]
2) AOS (P)
2) POPJ P,
2) ;********* BEG OF ESSAY DEFS *********
1) E.48[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 07-08-75 08:31 PAGES 231,231
******** E.48[CSP,SYS] **** PAGE 233 LINE 175
1) JRST SUBSTP ;To report on actual number replaced
*** E[CSP,SYS] *** PAGE 233 LINE 175
2) MOVE B,SDATA
2) ADDI B,SRCBUF
2) JRST SUBSTP ;To report on actual number replaced
******** E.48[CSP,SYS] **** PAGE 236 LINE 57
1) CHREG2: ASCIZ /F and P registers /
1) CHRETU: ASCIZ /Return-2 /]
*** E[CSP,SYS] *** PAGE 236 LINE 57
2) CHREG2: ASCIZ /Flags, point /
2) CHRETU: ASCIZ /Return-2 /]
******** E.48[CSP,SYS] **** PAGE 237 LINE 295
1) MOVE B,[POINT 7,CHREG2]
1) PUSHJ P,CHTEXT
*** E[CSP,SYS] *** PAGE 237 LINE 294
2) MOVE B,[POINT 7,CHREG2] ;F register and point
2) PUSHJ P,CHTEXT
******** E.48[CSP,SYS] **** PAGE 237 LINE 302
1) MOVE TT,SAVEAC+17
1) PUSHJ P,OCTASC
1) PUSHJ P,CHCRLF
*** E[CSP,SYS] *** PAGE 237 LINE 301
2) HRRZ T,SAVEAC+17
2) SUBI T,PDL
2) PUSHJ P,NUMSTR
2) PUSHJ P,CHCRLF
******** E.48[CSP,SYS] **** PAGE 237 LINE 325
1) ;Put POPJ addresses from PDL on the next line if space permits
1) MOVE B,[POINT 7,CHPDLM] ;Some text
1) PUSHJ P,CHTEXT
1) PUSHJ P,CHCRLF
1) HRRZ D,P
1) ; SKIPA ;Commented out because of double PUSHJ
1) CHKUP3: SUBI D,1
1) CAIGE D,PDL
1) JRST CHKUP4
1) HRRZ C,A ;POINTER ADDRESS
1) E.48[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 07-08-75 08:31 PAGES 237,237
*** E[CSP,SYS] *** PAGE 237 LINE 325
2) ;Put POPJ addresses from PDL on the next two lines if space permits
2) MOVEI E,11
2) MOVE B,[POINT 7,CHPDLM] ;Some text
2) PUSHJ P,CHTEXT
2) ; PUSHJ P,CHCRLF
2) MOVSI D,-20 ;Limit list to 16
2) ADDI D,PDL
2) CHKUP3: HRRZ C,D
2) SUBI C,PDL
2) TRNN C,7
2) PUSHJ P,CHCRLF
2) HRRZ C,A ;POINTER ADDRESS
******** E.48[CSP,SYS] **** PAGE 237 LINE 339
1) PUSHJ P,LHOCTS
1) IDPB E,A
1) JRST CHKUP3
1) CHKUP4: MOVEI C,15
*** E[CSP,SYS] *** PAGE 237 LINE 341
2) JUMPE TT,CHKUP4 ;End of the list
2) PUSHJ P,LHOCTS
2) IDPB E,A
2) AOBJN D,CHKUP3
2) CHKUP4: MOVEI C,15